PC Direct 1995 September/PCD0995.ISO/files/shared.dir/05282_Shared Movie Scripts.ls

Text File | 1994-12-18 | 5.4 KB | 198 lines

global demoQTstate, cDemoQT

on volumeLevel changeType
  global WhichSprite, cAudioLevel, gSoundlevel
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast (the name of cast the castNum of sprite WhichSprite && "lit")
  puppetSprite(cAudioLevel, 1)
  if changeType = #up then
    if gSoundlevel < 6 then
      set gSoundlevel to gSoundlevel + 1
    end if
  else
    if gSoundlevel > 1 then
      set gSoundlevel to gSoundlevel - 1
    end if
  end if
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  puppetSound("click")
  updateStage()
  repeat while the stillDown
    if changeType = #up then
      if gSoundlevel < 6 then
        set gSoundlevel to gSoundlevel + 1
      end if
    else
      if gSoundlevel > 0 then
        set gSoundlevel to gSoundlevel - 1
      end if
    end if
    set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
    updateStage()
    waitFor(0.10000000000000001)
  end repeat
  puppetSprite(WhichSprite, 0)
  set the soundLevel to gSoundlevel
end

on volumeLevelUp
  global WhichSprite, cAudioLevel, gSoundlevel
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast "Volume up lit"
  puppetSprite(cAudioLevel, 1)
  if gSoundlevel < 6 then
    set gSoundlevel to gSoundlevel + 1
  end if
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  puppetSprite(WhichSprite, 0)
  set the soundLevel to gSoundlevel
  updateStage()
end

on volumeLevelDown
  global WhichSprite, cAudioLevel, gSoundlevel
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast "Volume down lit"
  puppetSprite(cAudioLevel, 1)
  if gSoundlevel > 0 then
    set gSoundlevel to gSoundlevel - 1
  end if
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  puppetSprite(WhichSprite, 0)
  set the soundLevel to gSoundlevel
  updateStage()
end

on volumeLevelUpQT QTSprite
  global WhichSprite, cAudioLevel, gSoundlevel
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast "Volume up lit"
  puppetSprite(cAudioLevel, 1)
  if gSoundlevel < 6 then
    set gSoundlevel to gSoundlevel + 1
  end if
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  puppetSprite(WhichSprite, 0)
  set the soundLevel to gSoundlevel
  set the volume of sprite QTSprite to (gSoundlevel * 32) + 32
  updateStage()
end

on volumeLevelDownQT QTSprite
  global WhichSprite, cAudioLevel, gSoundlevel
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite WhichSprite to the number of cast "Volume down lit"
  puppetSprite(cAudioLevel, 1)
  if gSoundlevel > 0 then
    set gSoundlevel to gSoundlevel - 1
  end if
  set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
  puppetSprite(WhichSprite, 0)
  set the soundLevel to gSoundlevel
  set the volume of sprite QTSprite to (gSoundlevel * 32) + 32
  updateStage()
end

on waitFor seconds
  set now to the timer
  repeat while the timer < (now + (seconds * 60))
    if the mouseDown then
      exit
    end if
  end repeat
end

on timeoutProcedure
  go(1, "Intro")
end

on mainButtonSelect whichFrame
  go(whichFrame, "Tools")
end

on visionSelect whichDirection
  global gpressed
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set caster to the name of cast the castNum of sprite WhichSprite && "lit"
  set the castNum of sprite WhichSprite to the number of cast caster
  repeat with n = 2 to 3
    if n <> WhichSprite then
      puppetSprite(n, 0)
    end if
  end repeat
  puppetSound("click")
  puppetTransition(3, 128, 0)
  updateStage()
  waitFor(0.10000000000000001)
  puppetSprite(WhichSprite, 0)
  set gpressed to WhichSprite
  if whichDirection = #next then
    go(#next)
  else
    if the frameLabel = EMPTY then
      go(marker(-3))
    else
      go(marker(-2))
    end if
  end if
end

on clearPuppets
  repeat with x = 1 to 24
    puppetSprite(x, 0)
  end repeat
end

on picSwitcher howMany
  set WhichSprite to the clickOn
  set whichCast to the mouseCast
  puppetSprite(WhichSprite, 1)
  set myName to the name of cast whichCast
  set whichPic to word 1 of myName
  set whichNum to integer(word 2 of myName)
  set whichNum to whichNum + 1
  if whichNum = (howMany + 1) then
    set whichNum to 1
  end if
  set the castNum of sprite WhichSprite to the number of cast (whichPic && string(whichNum))
  updateStage()
end

on checkDepth
  repeat with x = 1 to 6000
    if the castType of cast x = #bitmap then
      if the depth of cast x > 8 then
        put "Bad cast at cast number" && string(x)
      end if
    end if
  end repeat
  beep(3)
end

on checkitout maxScoreFrame, whichCast
  repeat with x = 1 to maxScoreFrame
    go(x)
    repeat with y = 1 to 48
      if the castNum of sprite y = whichCast then
        put "Cast" && string(whichCast) && "found in sprite" && string(y) && "at frame" && string(x)
      end if
    end repeat
  end repeat
end

on bitdepther howMany
  repeat with x = 1 to howMany
    if the castType of cast x = #bitmap then
      if the depth of cast x > 8 then
        put "Castmember" && string(x) && "has a color depth of" && the depth of cast x
      end if
    end if
  end repeat
end